﻿Imports System.Windows
Imports System.Windows.Controls

Namespace Views

    Partial Public Class ViewEncoursCorresp
        Private Sub VariableStyle_PreviewMouseLeftButtonDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs)
            Try
                DragDrop.DoDragDrop(sender, sender.DataContext, DragDropEffects.Copy)
            Catch ex As Exception
            End Try
        End Sub

        Private Sub VariableAttendueTbleEncours_Drop(ByVal sender As Object, ByVal e As System.Windows.DragEventArgs)
            CType(DataContext, ViewModels.ViewModelCmdEncoursCorresp).paramChampsCible(sender, e)
        End Sub
    End Class
End Namespace
